home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / rexx / rexxio.inc < prev    next >
Text File  |  1998-06-24  |  541b  |  38 lines
  1. include "inc/rexx/storage.inc";
  2.  
  3. def RXBUFFSZ = 204;
  4.  
  5. struct IoBuff is
  6.   iobNode:RexxRsrc;
  7.   iobRpt:ulong;
  8.   iobRct:long;
  9.   iobDFH:long;
  10.   iobLock:ulong;
  11.   iobBct:long;
  12.   iobArea[204]:byte;
  13. ;
  14.  
  15. def RXIO_EXIST = -1;
  16. def RXIO_STRF = 0;
  17. def RXIO_READ = 1;
  18. def RXIO_WRITE = 2;
  19. def RXIO_APPEND = 3;
  20.  
  21. def RXIO_BEGIN = -1;
  22. def RXIO_CURR = 0;
  23. def RXIO_END = 1;
  24.  
  25. struct RexxMsgPort is
  26.   rmp_Node:RexxRsrc;
  27.   rmp_Port:MsgPort;
  28.   rmp_ReplyList:List;
  29. ;
  30.  
  31. def DT_DEV = 0;
  32. def DT_DIR = 1;
  33. def DT_VOL = 2;
  34.  
  35. def ACTION_STACK = 2002;
  36. def ACTION_QUEUE = 2003;
  37.  
  38.